object fCopiaBanco: TfCopiaBanco
  Left = 192
  Top = 114
  Width = 544
  Height = 375
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object BitBtn1: TBitBtn
    Left = 208
    Top = 264
    Width = 75
    Height = 25
    Caption = 'BitBtn1'
    TabOrder = 0
  end
  object SQLDataSet1: TSQLDataSet
    SQLConnection = SQLConnection1
    CommandText = 'select * from CADCON'
    Params = <>
    Left = 128
    Top = 8
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = SQLDataSet1
    Constraints = True
    UpdateMode = upWhereKeyOnly
    Left = 168
    Top = 8
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 208
    Top = 8
    object ClientDataSet1NUMCON: TFloatField
      FieldName = 'NUMCON'
    end
    object ClientDataSet1CPACON: TFloatField
      FieldName = 'CPACON'
    end
    object ClientDataSet1DTACON: TSQLTimeStampField
      FieldName = 'DTACON'
    end
    object ClientDataSet1DRECON: TSQLTimeStampField
      FieldName = 'DRECON'
    end
    object ClientDataSet1PRECON: TStringField
      FieldName = 'PRECON'
      Size = 3
    end
    object ClientDataSet1TEMCON: TStringField
      FieldName = 'TEMCON'
      Size = 3
    end
    object ClientDataSet1FRECON: TStringField
      FieldName = 'FRECON'
      Size = 3
    end
    object ClientDataSet1ANACON: TMemoField
      FieldName = 'ANACON'
      BlobType = ftMemo
      Size = 1
    end
    object ClientDataSet1EXACON: TMemoField
      FieldName = 'EXACON'
      BlobType = ftMemo
      Size = 1
    end
    object ClientDataSet1MEACON: TMemoField
      FieldName = 'MEACON'
      BlobType = ftMemo
      Size = 1
    end
    object ClientDataSet1MEPCON: TMemoField
      FieldName = 'MEPCON'
      BlobType = ftMemo
      Size = 1
    end
    object ClientDataSet1VALCON: TFloatField
      FieldName = 'VALCON'
    end
    object ClientDataSet1PAGCON: TStringField
      FieldName = 'PAGCON'
      Size = 3
    end
    object ClientDataSet1NOMCON: TStringField
      FieldName = 'NOMCON'
      Size = 50
    end
    object ClientDataSet1TELCON: TFloatField
      FieldName = 'TELCON'
    end
    object ClientDataSet1CELCON: TFloatField
      FieldName = 'CELCON'
    end
    object ClientDataSet1CATCON: TStringField
      FieldName = 'CATCON'
      Size = 30
    end
  end
  object SQLConnection1: TSQLConnection
    ConnectionName = 'decio'
    DriverName = 'Interbase'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbexpint.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=Interbase'
      'BlobSize=-1'
      'CommitRetain=False'
      'Database=d:\Home\decio\DECIO.GDB'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Password=masterkey'
      'RoleName=RoleName'
      'ServerCharSet='
      'SQLDialect=1'
      'Interbase TransIsolation=ReadCommited'
      'User_Name=sysdba'
      'WaitOnLocks=True')
    VendorLib = 'GDS32.DLL'
    Left = 307
    Top = 8
  end
  object SQLDataSet2: TSQLDataSet
    SQLConnection = SQLConnection1
    CommandText = 'select * from CADPAC'
    Params = <>
    Left = 416
    Top = 8
  end
  object DataSetProvider2: TDataSetProvider
    DataSet = SQLDataSet2
    Constraints = True
    UpdateMode = upWhereKeyOnly
    Left = 456
    Top = 8
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider2'
    Left = 496
    Top = 8
    object ClientDataSet2CODPAC: TFloatField
      FieldName = 'CODPAC'
    end
    object ClientDataSet2NOMPAC: TStringField
      FieldName = 'NOMPAC'
      Size = 50
    end
    object ClientDataSet2CATPAC: TStringField
      FieldName = 'CATPAC'
      Size = 30
    end
    object ClientDataSet2PROPAC: TStringField
      FieldName = 'PROPAC'
      Size = 30
    end
    object ClientDataSet2SEXPAC: TStringField
      FieldName = 'SEXPAC'
      Size = 10
    end
    object ClientDataSet2CORPAC: TStringField
      FieldName = 'CORPAC'
    end
    object ClientDataSet2ESCPAC: TStringField
      FieldName = 'ESCPAC'
      Size = 10
    end
    object ClientDataSet2ENDPAC: TStringField
      FieldName = 'ENDPAC'
      Size = 200
    end
    object ClientDataSet2COMPAC: TStringField
      FieldName = 'COMPAC'
      Size = 30
    end
    object ClientDataSet2BAIPAC: TStringField
      FieldName = 'BAIPAC'
      Size = 50
    end
    object ClientDataSet2CIDPAC: TStringField
      FieldName = 'CIDPAC'
      Size = 50
    end
    object ClientDataSet2ESTPAC: TStringField
      FieldName = 'ESTPAC'
      Size = 2
    end
    object ClientDataSet2CEPPAC: TFloatField
      FieldName = 'CEPPAC'
    end
    object ClientDataSet2CXPPAC: TFloatField
      FieldName = 'CXPPAC'
    end
    object ClientDataSet2CICPAC: TStringField
      FieldName = 'CICPAC'
    end
    object ClientDataSet2RGPAC: TStringField
      FieldName = 'RGPAC'
    end
    object ClientDataSet2DNAPAC: TSQLTimeStampField
      FieldName = 'DNAPAC'
    end
    object ClientDataSet2TELPAC: TFloatField
      FieldName = 'TELPAC'
    end
    object ClientDataSet2CELPAC: TFloatField
      FieldName = 'CELPAC'
    end
    object ClientDataSet2DCAPAC: TSQLTimeStampField
      FieldName = 'DCAPAC'
    end
  end
end
